RM <- read.csv("Residential Mortgages.csv",header=TRUE)
head(RM)
names(RM)
[1] "ï..ContractRef" "LoanBalance"
[3] "InterestType" "InterestRate"
[5] "NIM" "MortgageType"
[7] "NewLoan" "ProbationaryLoans"
[9] "DefaultedLoans" "CreditRating"
[11] "InterestIncome" "LTV"
[13] "LTVCategory" "MortgageYears"
[15] "PropertyValue" "AnnualPYMT"
[17] "MaturityDate" "BookingDate"
[19] "LastValuationDate" "ValuationAgeYears"
[21] "CreditRatingMovement" "County"
[23] "Branch" "Address"
[25] "Town" "AddressLatitude"
[27] "AddressLongitude" "InArrears"
[29] "ValueInArrears" "DaysInArrears"
[31] "ArrearsCategory" "X._HousePriceMovement"
[33] "UpdatedPropertyValue" "LTVUpdated"
[35] "LTVCategoryUpdated"
library(lattice)
par(mfrow = c(2,2))
df <- unique(RM[c(2:6,9:16,20,22,26:31)])
head(df)
LS0tDQp0aXRsZTogIkRlc2NyaXB0aXZlIHN0YXRpc3RpY3MiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7cn0NClJNIDwtIHJlYWQuY3N2KCJSZXNpZGVudGlhbCBNb3J0Z2FnZXMuY3N2IixoZWFkZXI9VFJVRSkNCmhlYWQoUk0pDQpuYW1lcyhSTSkNCmBgYA0KDQpgYGB7cn0NCmxpYnJhcnkobGF0dGljZSkNCnBhcihtZnJvdyA9IGMoMiwyKSkNCmRmIDwtIHVuaXF1ZShSTVtjKDI6Niw5OjE2LDIwLDIyLDI2OjMxKV0pIA0KaGVhZChkZikNCmBgYA0KYGBge3J9DQp2YXJfbGlzdDwtIG5hbWVzKGRmKVsxOjUsNzoyMV0NCm1vZGVscyA8LSBsYXBwbHkodmFyX2xpc3QsIA0KICAgICAgICAgIGZ1bmN0aW9uKHgpIA0KICAgICAgICAgICAgew0KICAgICAgICAgICAgIG1vZCA9IGxtKHN1YnN0aXR1dGUoRGVmYXVsdGVkTG9hbnMgfiBpLCBsaXN0KGkgPSBhcy5uYW1lKHgpKSksIGRhdGEgPSBkZikNCiAgICAgICAgICAgIH0pDQpgYGANCg0K